home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_20657.txt < prev    next >
Text File  |  1990-08-07  |  4KB  |  186 lines
  1. -- card: 20657 from stack: in.0-2
  2. -- bmap block id: 44924
  3. -- flags: 0000
  4. -- background id: 18737
  5. -- name: Icon Editor
  6. ----- HyperTalk script -----
  7. on goBack
  8.   go cd "Other tools" of stack "Intro to HyperCard 2.0"
  9. end goBack
  10.  
  11. on closeCard
  12.   set icon of btn id 5 to 13105
  13.   set name of btn id 5 to "Are you finished?"
  14. end closeCard
  15.  
  16.  
  17. -- part 9 (button)
  18. -- low flags: 00
  19. -- high flags: A000
  20. -- rect: left=309 top=222 right=275 bottom=410
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 29549 / 29549
  23. -- text alignment: 1
  24. -- font id: 0
  25. -- text size: 12
  26. -- style flags: 0
  27. -- line height: 16
  28. -- part name: What would you like?
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   answer "What would you like?" with "Coffee?" or "Cherry Pie?" or "Good book?"
  32.   put it into theChoice
  33.   set icon of me to theChoice
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part 5 (button)
  39. -- low flags: 00
  40. -- high flags: A000
  41. -- rect: left=212 top=222 right=275 bottom=310
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 13105 / 13105
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Are you finished?
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   lock screen
  53.   set icon of me to 9713
  54.   set name of me to "YES!"
  55.   unlock screen with wipe right
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 4 (button)
  61. -- low flags: 00
  62. -- high flags: A000
  63. -- rect: left=154 top=222 right=275 bottom=212
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 27304 / 27304
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Let’s dance
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   set cursor to none
  75.   repeat for 2
  76.     repeat with n = 1 to 7
  77.       set icon of the target to ("dance" & n)
  78.       wait 5
  79.     end repeat
  80.   end repeat
  81.   set icon of the target to "dance1"
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 1 (button)
  87. -- low flags: 00
  88. -- high flags: A000
  89. -- rect: left=68 top=219 right=277 bottom=149
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 12033 / 12033
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: See Icon Editor
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   visual zoom out
  101.   go cd "Icon Editor Empty" of stack "‚Ä¢HC 2.0-6"
  102. end mouseUp
  103.  
  104.  
  105.  
  106. on mouseUp
  107.   set cursor to none
  108.   lock screen
  109.   put return & "Here‚Äôs the Icon Editor with no icons in it." into cd fld "info"
  110.   show cd fld "info"
  111.   unlock screen with wipe right
  112.   wait 90
  113.   lock screen
  114.   hide cd fld "info"
  115.   unlock screen with wipe right
  116.   wait 10
  117.   show btn "editorBtn"
  118.   PaintPict "emptyIconEditor",cd,"editorBtn"
  119.   wait 190
  120.   hide btn "editorBtn"
  121.  
  122.   lock screen
  123.   put return & "Here‚Äôs the Icon Editor WITH an icon in it." into cd fld "info"
  124.   show cd fld "info"
  125.   unlock screen with wipe right
  126.   wait 90
  127.   lock screen
  128.   hide cd fld "info"
  129.   unlock screen with wipe right
  130.   wait 10
  131.   show btn "editorBtn"
  132.   PaintPict "fullIconEditor",cd,"editorBtn"
  133.   wait 190
  134.   hide btn "editorBtn"
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 2 (button)
  140. -- low flags: 80
  141. -- high flags: 0001
  142. -- rect: left=81 top=41 right=323 bottom=396
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: EditorBtn
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   hide me
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part 3 (field)
  159. -- low flags: 81
  160. -- high flags: 2004
  161. -- rect: left=64 top=120 right=256 bottom=410
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 1
  165. -- font id: 174
  166. -- text size: 24
  167. -- style flags: 0
  168. -- line height: 26
  169. -- part name: info
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   hide me
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part contents for background part 1
  178. ----- text -----
  179. HyperCard 2.0 has a built-in tool for making, copying, and modifying icons‚Äîwhich are buttons that can have small graphics attached to them.
  180.  
  181. Click the ‚ÄúSee Icon Editor‚Äù option below to see how the Editor looks, then click the other options to see samples of the kinds of things you can do with icons.
  182.  
  183. -- part contents for card part 3
  184. ----- text -----
  185.  
  186. Here‚Äôs the Icon Editor WITH an icon in it.